1 GOTO10
2 PRINT"    >>> [194][201][212][212][197] [212][193][211][212][197] [196][210][213][197][195][203][197][206] ! <<<":RETURN
3 POKE198,0:WAIT198,1:POKE198,0
4 FORT=4TO22:POKE781,T:SYS59903:NEXT:PRINT"":RETURN
10 POKE53280,0:POKE53281,0:POKE646,7:PRINTCHR$(8);CHR$(14);"[147]";
19 PRINT"[150]                                        ";
20 PRINT"     [153][196]IASHOW-[199]ENERATOR-[201]NFO  [[212][195]][150]       ";
21 PRINT"                                        "
30 PRINT"[155][196]ER [196][201][193][211][200][207][215]-[199][197][206][197][210][193][212][207][210] IST [196][193][211] [208]ROGRAMM,"
40 PRINT"MIT DEM [196]U AUS EINER [196]ISK MIT":PRINT"           [203][207][193][204][193]-[208][201][195][212][213][210][197][211]"
50 PRINT"EINE '[196][201][193][211][200][207][215]-[196][201][211][203]' MACHEN KANNST."
60 PRINT"[196]A DIE [194]EDIENUNG WIRKLICH [197][201][206][198][193][195][200][211][212] IST,"
70 PRINT"GIBT'S AUCH NUR 'N GANZ KLEINES [194][193][211][201][195]-":PRINT"[201]NFO -"
80 PRINT"- GANZ OHNE [204][207][199][207], [211][207][213][206][196] ETC..."
90 GOSUB2:GOSUB3
100 PRINT"[206]ACH DEM [204]ADEN UND [211]TARTEN DES [208]ROGRAMMS"
110 PRINT"ERSCHEINT EINE [193]RT '[201]NTRO-[194]ILD'."
120 PRINT"[200]IER WIRST [196]U DURCH EINEN KLEINEN":PRINT"  '[211]OUND-[197]FFEKT'"
130 PRINT"DARAUF AUFMERKSAM GEMACHT, DASS DAS":PRINT"[208]ROGRAMM BEREIT IST."
140 PRINT"[202]ETZT NIMMST [196]U DIE [196]ISK MIT DEM [208]ROGGI"
150 PRINT"AUS DEM [204]AUFWERK UND LEGST DIE [196]ISK"
160 PRINT"MIT DEN [203][207][193][204][193]-[208]ICTURES EIN."
170 GOSUB3
180 PRINT"[215]ENN [196]U DIESE [211]CHWERSTARBEIT ERFOLGREICH"
190 PRINT"BEWAELTIGT HAST, DRUECKST [196]U  <[211][208][193][195][197]>."
200 PRINT"[202]ETZT WIRD VOM [208]ROGRAMM DAS [196][201][210][197][195][212][207][210][217]"
210 PRINT"EINGELESEN UND ANGEZEIGT."
220 PRINT"[197]RSCHEINT EIN [196]IRECTORY-[197]INTRAG, DER"
230 PRINT"[203][197][201][206] [203][207][193][204][193]-[194][201][204][196] IST (ODER EIN [194]ILD, DAS"
240 PRINT"[196]U NICHT IN DER [196]IA-[211]HOW HABEN WILLST),"
250 PRINT"SO DRUECKST [196]U ENTSCHIEDEN '[206]'."
260 GOSUB3
270 PRINT"[193]NSONSTEN DRUECKST [196]U '[217]' (FUER 'JA').
280 [153]"ATNUF DIESE ATNRT 'ARBEITEST' STR$U STR$ICH"
290 [153]"DURCH DAS STR$IRECTORY..."
300 [153]"(null)IND ALLE STR$IR.-VALINTRAEGE BEARBEITET,"
310 [153]"SPRINGT DAS (null)ROGRAMM ZURUECK IN'S":[153]" PEEKCLOSEATNCLOSE(null)CLOSERIGHT$CLOSELEN."
320 [141]3
330 [153]"MID$ETZT KANNST STR$U MIT"
340 [153]" (null)ATN(null)VAL 'STR$RIGHT$ATN-(null)LEFT$(null)(null)',8,1"
350 [153]"(NATUERLICH KANNST STR$U JEDEN STR$IR BELIE-"
360 [153]"BENDEN (null)AMEN ANSTATT STR$RIGHT$ATN-(null)LEFT$(null)(null) WAEHLEN..)
370 PRINT"DAS [196][201][193]-[211][200][207][215]-[208]ROGRAMM AUF DER [196]ISK":PRINT"[211][193][214][197]N."
380 GOSUB3
390 PRINT"[215]ENN [196]U DANN VON DER [196]ISK DAS [208]ROGRAMM"
400 PRINT"LAEDTST UND MIT '[210][213][206]' STARTEST,"
405 PRINT"WERDEN DIE EINZELNEN [194]ILDER ANGEZEIGT."
410 PRINT"[202]EWEILS NACH [212]ASTENDRUCK FOLGT DAS"          "
420 [153]"NAECHSTE PEEKILD."
430 [153]"(null)IND ALLE PEEKILDER DURCH, BEGINNT DIE"
440 [153]"'(null)LEFT$(null)(null)' VON VORNE..."
450 [141]3
460 [153]"   STR$CLOSEATNCLOSE(null)CLOSE  (null)CLOSEATNCLOSE(null)    ATNCLOSE(null)CLOSE(null)CLOSEVALCLOSE(null)CLOSE!"
470 [129]X[178]1[164]1000:[130]:[153]"(null)ND NUN VIEL (null)PASS BEIM (null)USAMMEN-"
480 [153]"STELLEN STR$EINER EIGENEN STR$RIGHT$ATN-(null)LEFT$(null)(null)(null)!!!"
490 [153]"       (null)CLOSERIGHT$CLOSECHR$CLOSEVALCLOSE(null)CLOSE- LENCLOSE(null)CLOSEVALCLOSE(null)"
500 [151]781,23:[158]59903:[128]